[求助]生成html出现无效的过程调用或参数

来源:百度知道 编辑:UC知道 时间:2024/05/21 10:14:42
<%
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"show.asp?id="&id&""
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "get",ServerURL,false
Http.send()
AA=Http.responseText
set http=nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
set htmout = objfso.CreateTextFile(server.mappath("html/"&id&".htm"))
AA=replace(AA,"index.asp","../index.asp")
AA=replace(AA,"login.asp","../login.asp")
AA=replace(AA,"type.asp","../type.asp")
AA=replace(AA,"show.asp","../show.asp")
htmout.wri

假如你获取http://192.168.1.9/show?id=10这个地址的代码
则在show.asp顶部把下面的代码放上去试一下
<%response.ContentType = "text/html"
response.CharSet = "gb2312" %>

你直接把那个文件的71行贴出来,当然最好多贴几行,但是标明哪个是71行